﻿Imports System.Data.SqlClient 
Public Class DF01_VImpA
    Inherits Conexion
    Dim cmd As New SqlCommand
    Public Function guardar(ByVal dts As Entidades.EF01Vehiculo) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_guardar_F01VIA")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@num_formulario", dts.numformulario)
            cmd.Parameters.AddWithValue("@dominio", dts.domini)
            cmd.Parameters.AddWithValue("@porcentaje_tit", dts.porcentajetit)
            cmd.Parameters.AddWithValue("@ape_nom_den", dts.apenomden)
            cmd.Parameters.AddWithValue("@calle", dts.cal)
            cmd.Parameters.AddWithValue("@numero", dts.num)
            cmd.Parameters.AddWithValue("@piso", dts.pis)
            cmd.Parameters.AddWithValue("@dpto", dts.dpt)
            cmd.Parameters.AddWithValue("@cod_postal", dts.codpostal)
            cmd.Parameters.AddWithValue("@loc_cap", dts.loccap)
            cmd.Parameters.AddWithValue("@part_dpto", dts.partdpto)
            cmd.Parameters.AddWithValue("@provincia", dts.prov)
            cmd.Parameters.AddWithValue("@argnn_dni", dts.argnndni)
            cmd.Parameters.AddWithValue("@argnn_le", dts.argnnle)
            cmd.Parameters.AddWithValue("@argnn_lc", dts.argnnlc)
            cmd.Parameters.AddWithValue("@extr_dni", dts.extrdni)
            cmd.Parameters.AddWithValue("@extr_ci", dts.extrci)
            cmd.Parameters.AddWithValue("@extr_pasaporte", dts.extrpasaporte)
            cmd.Parameters.AddWithValue("@num_doc", dts.numdoc)
            cmd.Parameters.AddWithValue("@autoridad", dts.autorid)
            cmd.Parameters.AddWithValue("@fechanac_dia", dts.fechanacdia)
            cmd.Parameters.AddWithValue("@fechanac_mes", dts.fechanacmes)
            cmd.Parameters.AddWithValue("@fechanac_año", dts.fechanacaño)
            cmd.Parameters.AddWithValue("@soltero", dts.solter)
            cmd.Parameters.AddWithValue("@casado", dts.casad)
            cmd.Parameters.AddWithValue("@viudo", dts.viud)
            cmd.Parameters.AddWithValue("@divorciado", dts.divorciad)
            cmd.Parameters.AddWithValue("@num_nupcia", dts.numnupcia)
            cmd.Parameters.AddWithValue("@ape_nom_cony", dts.apenomcony)
            cmd.Parameters.AddWithValue("@personeria", dts.personeri)
            cmd.Parameters.AddWithValue("@num_insc", dts.numinsc)
            cmd.Parameters.AddWithValue("@fechainsc_día", dts.fechainscdia)
            cmd.Parameters.AddWithValue("@fechainsc_mes", dts.fechainscmesc)
            cmd.Parameters.AddWithValue("@fechainsc_año", dts.fechainscaño)
            cmd.Parameters.AddWithValue("@porcentaje_cond", dts.porcentajecond)
            cmd.Parameters.AddWithValue("@ape_nom_den_c", dts.apenomdenc)
            cmd.Parameters.AddWithValue("@calle_c", dts.calc)
            cmd.Parameters.AddWithValue("@numero_c", dts.numc)
            cmd.Parameters.AddWithValue("@piso_c", dts.pisc)
            cmd.Parameters.AddWithValue("@dpto_c", dts.dptc)
            cmd.Parameters.AddWithValue("@cod_postal_c", dts.codpostalc)
            cmd.Parameters.AddWithValue("@loc_cap_c", dts.loccapc)
            cmd.Parameters.AddWithValue("@part_dpto_c", dts.partdptoc)
            cmd.Parameters.AddWithValue("@provincia_c", dts.provc)
            cmd.Parameters.AddWithValue("@argnn_dni_c", dts.argnndnic)
            cmd.Parameters.AddWithValue("@argnn_le_c", dts.argnnlec)
            cmd.Parameters.AddWithValue("@argnn_lc_c", dts.argnnlcc)
            cmd.Parameters.AddWithValue("@extr_dni_c", dts.extrdnic)
            cmd.Parameters.AddWithValue("@extr_ci_c", dts.extrcic)
            cmd.Parameters.AddWithValue("@extr_pasaporte_c", dts.extrpasaportec)
            cmd.Parameters.AddWithValue("@num_doc_c", dts.numdocc)
            cmd.Parameters.AddWithValue("@autoridad_c", dts.autoridc)
            cmd.Parameters.AddWithValue("@fechanac_dia_c", dts.fechanacdiac)
            cmd.Parameters.AddWithValue("@fechanac_mes_c", dts.fechanacmesc)
            cmd.Parameters.AddWithValue("@fechanac_año_c", dts.fechanacañoc)
            cmd.Parameters.AddWithValue("@soltero_c", dts.solterc)
            cmd.Parameters.AddWithValue("@casado_c", dts.casadc)
            cmd.Parameters.AddWithValue("@viudo_c", dts.viudc)
            cmd.Parameters.AddWithValue("@divorciado_c", dts.divorciadc)
            cmd.Parameters.AddWithValue("@num_nupcia_c", dts.numnupciac)
            cmd.Parameters.AddWithValue("@ape_nom_cony_c", dts.apenomconyc)
            cmd.Parameters.AddWithValue("@personeria_c", dts.personeric)
            cmd.Parameters.AddWithValue("@num_insc_c", dts.numinscc)
            cmd.Parameters.AddWithValue("@fechainsc_día_c", dts.fechainscdiac)
            cmd.Parameters.AddWithValue("@fechainsc_mes_c", dts.fechainscmesc)
            cmd.Parameters.AddWithValue("@fechainsc_año_c", dts.fechainscañoc)
            cmd.Parameters.AddWithValue("@opta_si", dts.optasi)
            cmd.Parameters.AddWithValue("@opta_no", dts.optano)
            cmd.Parameters.AddWithValue("@num_fab", dts.numfab)
            cmd.Parameters.AddWithValue("@marca", dts.marc)
            cmd.Parameters.AddWithValue("@tipo", dts.tip)
            cmd.Parameters.AddWithValue("@modelo", dts.model)
            cmd.Parameters.AddWithValue("@marca_motor", dts.marcamotor)
            cmd.Parameters.AddWithValue("@num_motor", dts.nummotor)
            cmd.Parameters.AddWithValue("@marca_chasis", dts.marcachasis)
            cmd.Parameters.AddWithValue("@carroc_num", dts.carrocnum)
            cmd.Parameters.AddWithValue("@uso", dts.us)
            cmd.Parameters.AddWithValue("@valor_adq", dts.valoradq)
            cmd.Parameters.AddWithValue("@dia_adq", dts.diaadq)
            cmd.Parameters.AddWithValue("@mes_adq", dts.mesadq)
            cmd.Parameters.AddWithValue("@año_adq", dts.añoadq)
            cmd.Parameters.AddWithValue("@elemento", dts.element)


            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function

    Public Function modificar(ByVal dts As Entidades.EF01Vehiculo) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_editar_F01VImpA")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@num_formulario", dts.numformulario)
            cmd.Parameters.AddWithValue("@dominio", dts.domini)
            cmd.Parameters.AddWithValue("@porcentaje_tit", dts.porcentajetit)
            cmd.Parameters.AddWithValue("@ape_nom_den", dts.apenomden)
            cmd.Parameters.AddWithValue("@calle", dts.cal)
            cmd.Parameters.AddWithValue("@numero", dts.num)
            cmd.Parameters.AddWithValue("@piso", dts.pis)
            cmd.Parameters.AddWithValue("@dpto", dts.dpt)
            cmd.Parameters.AddWithValue("@cod_postal", dts.codpostal)
            cmd.Parameters.AddWithValue("@loc_cap", dts.loccap)
            cmd.Parameters.AddWithValue("@part_dpto", dts.partdpto)
            cmd.Parameters.AddWithValue("@provincia", dts.prov)
            cmd.Parameters.AddWithValue("@argnn_dni", dts.argnndni)
            cmd.Parameters.AddWithValue("@argnn_le", dts.argnnle)
            cmd.Parameters.AddWithValue("@argnn_lc", dts.argnnlc)
            cmd.Parameters.AddWithValue("@extr_dni", dts.extrdni)
            cmd.Parameters.AddWithValue("@extr_ci", dts.extrci)
            cmd.Parameters.AddWithValue("@extr_pasaporte", dts.extrpasaporte)
            cmd.Parameters.AddWithValue("@num_doc", dts.numdoc)
            cmd.Parameters.AddWithValue("@autoridad", dts.autorid)
            cmd.Parameters.AddWithValue("@fechanac_dia", dts.fechanacdia)
            cmd.Parameters.AddWithValue("@fechanac_mes", dts.fechanacmes)
            cmd.Parameters.AddWithValue("@fechanac_año", dts.fechanacaño)
            cmd.Parameters.AddWithValue("@soltero", dts.solter)
            cmd.Parameters.AddWithValue("@casado", dts.casad)
            cmd.Parameters.AddWithValue("@viudo", dts.viud)
            cmd.Parameters.AddWithValue("@divorciado", dts.divorciad)
            cmd.Parameters.AddWithValue("@num_nupcia", dts.numnupcia)
            cmd.Parameters.AddWithValue("@ape_nom_cony", dts.apenomcony)
            cmd.Parameters.AddWithValue("@personeria", dts.personeri)
            cmd.Parameters.AddWithValue("@num_insc", dts.numinsc)
            cmd.Parameters.AddWithValue("@fechainsc_día", dts.fechainscdia)
            cmd.Parameters.AddWithValue("@fechainsc_mes", dts.fechainscmesc)
            cmd.Parameters.AddWithValue("@fechainsc_año", dts.fechainscaño)
            cmd.Parameters.AddWithValue("@porcentaje_cond", dts.porcentajecond)
            cmd.Parameters.AddWithValue("@ape_nom_den_c", dts.apenomdenc)
            cmd.Parameters.AddWithValue("@calle_c", dts.calc)
            cmd.Parameters.AddWithValue("@numero_c", dts.numc)
            cmd.Parameters.AddWithValue("@piso_c", dts.pisc)
            cmd.Parameters.AddWithValue("@dpto_c", dts.dptc)
            cmd.Parameters.AddWithValue("@cod_postal_c", dts.codpostalc)
            cmd.Parameters.AddWithValue("@loc_cap_c", dts.loccapc)
            cmd.Parameters.AddWithValue("@part_dpto_c", dts.partdptoc)
            cmd.Parameters.AddWithValue("@provincia_c", dts.provc)
            cmd.Parameters.AddWithValue("@argnn_dni_c", dts.argnndnic)
            cmd.Parameters.AddWithValue("@argnn_le_c", dts.argnnlec)
            cmd.Parameters.AddWithValue("@argnn_lc_c", dts.argnnlcc)
            cmd.Parameters.AddWithValue("@extr_dni_c", dts.extrdnic)
            cmd.Parameters.AddWithValue("@extr_ci_c", dts.extrcic)
            cmd.Parameters.AddWithValue("@extr_pasaporte_c", dts.extrpasaportec)
            cmd.Parameters.AddWithValue("@num_doc_c", dts.numdocc)
            cmd.Parameters.AddWithValue("@autoridad_c", dts.autoridc)
            cmd.Parameters.AddWithValue("@fechanac_dia_c", dts.fechanacdiac)
            cmd.Parameters.AddWithValue("@fechanac_mes_c", dts.fechanacmesc)
            cmd.Parameters.AddWithValue("@fechanac_año_c", dts.fechanacañoc)
            cmd.Parameters.AddWithValue("@soltero_c", dts.solterc)
            cmd.Parameters.AddWithValue("@casado_c", dts.casadc)
            cmd.Parameters.AddWithValue("@viudo_c", dts.viudc)
            cmd.Parameters.AddWithValue("@divorciado_c", dts.divorciadc)
            cmd.Parameters.AddWithValue("@num_nupcia_c", dts.numnupciac)
            cmd.Parameters.AddWithValue("@ape_nom_cony_c", dts.apenomconyc)
            cmd.Parameters.AddWithValue("@personeria_c", dts.personeric)
            cmd.Parameters.AddWithValue("@num_insc_c", dts.numinscc)
            cmd.Parameters.AddWithValue("@fechainsc_día_c", dts.fechainscdiac)
            cmd.Parameters.AddWithValue("@fechainsc_mes_c", dts.fechainscmesc)
            cmd.Parameters.AddWithValue("@fechainsc_año_c", dts.fechainscañoc)
            cmd.Parameters.AddWithValue("@opta_si", dts.optasi)
            cmd.Parameters.AddWithValue("@opta_no", dts.optano)
            cmd.Parameters.AddWithValue("@num_fab", dts.numfab)
            cmd.Parameters.AddWithValue("@marca", dts.marc)
            cmd.Parameters.AddWithValue("@tipo", dts.tip)
            cmd.Parameters.AddWithValue("@modelo", dts.model)
            cmd.Parameters.AddWithValue("@marca_motor", dts.marcamotor)
            cmd.Parameters.AddWithValue("@num_motor", dts.nummotor)
            cmd.Parameters.AddWithValue("@marca_chasis", dts.marcachasis)
            cmd.Parameters.AddWithValue("@carroc_num", dts.carrocnum)
            cmd.Parameters.AddWithValue("@uso", dts.us)
            cmd.Parameters.AddWithValue("@valor_adq", dts.valoradq)
            cmd.Parameters.AddWithValue("@dia_adq", dts.diaadq)
            cmd.Parameters.AddWithValue("@mes_adq", dts.mesadq)
            cmd.Parameters.AddWithValue("@año_adq", dts.añoadq)
            cmd.Parameters.AddWithValue("@elemento", dts.element)
            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function
End Class
